home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1017_UserItem < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.4 KB  |  68 lines
  1. %case uses%
  2. %case instance%
  3. %case zMake.decl%
  4.     Procedure Make%itemname%    (enclosure:        CView;
  5.                              supervisor:    CBureaucrat);
  6. %case zMake%
  7.     {----------}
  8.     %if modeless%
  9.         Procedure Z%dlogname%.Make%itemname% (
  10.     %else%
  11.         Procedure Z%windname%.Make%itemname% (
  12.     %endif%
  13.                         enclosure:        CView;
  14.                         supervisor:        CBureaucrat);
  15.     Begin
  16.         { override this method to create and initialize %itemname% }
  17.     End; {Make%itemname%}
  18.  
  19. %case instance.override%
  20.     %itemname%:%    %CPanorama;
  21. %case Make.decl%
  22.     Procedure Make%itemname%    (enclosure:        CView;
  23.                              supervisor:    CBureaucrat); override;
  24. %case Make%
  25.     {----------}
  26.     %if modeless%
  27.         Procedure C%dlogname%.Make%itemname% (
  28.     %else%
  29.         Procedure C%windname%.Make%itemname% (
  30.     %endif%
  31.                         enclosure:        CView;
  32.                         supervisor:        CBureaucrat);
  33.     Begin
  34.         New (%itemname%);
  35.         %itemname%.IViewRes ('Pano', %paneID%, enclosure, supervisor);
  36.         %if not modeless%
  37.             mainPanorama := %itemname%;
  38.         %endif%
  39.     End; {Make%itemname%}
  40.  
  41. %case create%
  42.  
  43.     Make%itemname% (enclosure, supervisor);
  44. %case itemNr%
  45.     %DefineItem%
  46. %case dialog field%
  47.     %fieldname%:%    %Handle;
  48.     %Enable?%
  49.     %haveField%
  50. %case init field%
  51.     %fieldname% := nil;
  52.     %Enable?%
  53. %case auxiliary%
  54. %case auxiliary%
  55.     {----------}
  56.     Procedure Draw%Itemname% (whichDialog:    DialogPtr;
  57.                           itemNr:        integer);
  58.     Begin
  59.     End; {Draw%Itemname%}
  60.     
  61. %case filter%
  62. %case set%
  63.     SetUserItem (%Itemname%, @Draw%Itemname%);
  64. %case enable%
  65.     %Enable?%
  66. %case hit%
  67. %case finish%
  68.